home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dba1286.arc / COLORS.SC < prev    next >
Encoding:
Text File  |  1986-11-04  |  369 b   |  14 lines
  1. ;--------------------------------------- Colors.SC.
  2. ;-- Shows colors used with STYLE ATTRIBUTE command.
  3. ;------------------------------ Loop from 0 to 255.
  4. Counter = 0
  5. WHILE Counter <= 255
  6.       STYLE ATTRIBUTE Counter
  7.       ?? FORMAT("W5",Counter)
  8.       Counter = Counter + 1
  9. ENDWHILE
  10. @ 24,1
  11. ?? "Press any key when done viewing colors..."
  12. X = GETCHAR()
  13.  
  14.